www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\Label\custom_Label\公用函数include及论坛博客等标签库\nd_bbs_newlist.asp

    <%'$start_ext_newDsoft 以下系统生成,勿删!
'$newDsoft_label_type$:loop_label_one_loop$end_newDsoft_label_type$
'$newDsoft_label_name$:nd_bbs_newlist$end_newDsoft_label_name$
'$newDsoft_label_sql$:select [bbstl].id,[bbstl].zhuti,[bbstl].name,[bbstl].hits,[bbstl].face,[bbstl].bd,[bbstl].gonggao,[bbstl].riqi,[bbstl].orders,[bbstl].type,[bbstl].isvote,[bbstl].bnum,[bbstl].lastre,[bbstl].totable from [bbstl] where type<>5 order by orders desc$end_newDsoft_label_sql$
'$newDsoft_label_params$:width,显示宽度,3|lent,标题长度,3|nums,显示数,3|uuur,路径，一般填../bbs就可以,1$end_newDsoft_label_params$
'$newDsoft_label_fenye_num$:$xxvar$nums$end_newDsoft_label_fenye_num$
'$newDsoft_label_beizhu$:显示论坛新帖$end_newDsoft_label_beizhu$
'$newDsoft_is_sys_label$:0$end_newDsoft_is_sys_label$
'$newDsoft_other_params$:hhend:</table>|hhks:<table   border="0" cellpadding="0" cellspacing="0" width="$xxvar$width" style="word-break$$sx_maohao$break-all">$$sx_aspcodex_huanhang$$$sx_aspcodex_startx1$$$sx_aspcodex_huanhang$'count=newdsoft_conn_obj.execute("select count(id)from bbstl where type<>5")(0)$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$if ssshaxxddds="" then$$sx_aspcodex_huanhang$ssshaxxddds=1$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$Function LeftTrue(str,n)$$sx_aspcodex_huanhang$If len(str)<=n/2 Then$$sx_aspcodex_huanhang$LeftTrue=str$$sx_aspcodex_huanhang$Else$$sx_aspcodex_huanhang$Dim TStr$$sx_aspcodex_huanhang$Dim l,t,c$$sx_aspcodex_huanhang$Dim i$$sx_aspcodex_huanhang$l=len(str)$$sx_aspcodex_huanhang$t=l$$sx_aspcodex_huanhang$TStr=""$$sx_aspcodex_huanhang$t=0$$sx_aspcodex_huanhang$for i=1 to l$$sx_aspcodex_huanhang$c=asc(mid(str,i,1))$$sx_aspcodex_huanhang$If c<0 then c=c+65536$$sx_aspcodex_huanhang$If c>255 then$$sx_aspcodex_huanhang$t=t+2$$sx_aspcodex_huanhang$Else$$sx_aspcodex_huanhang$t=t+1$$sx_aspcodex_huanhang$End If$$sx_aspcodex_huanhang$If t>n Then exit for$$sx_aspcodex_huanhang$TStr=TStr&(mid(str,i,1))$$sx_aspcodex_huanhang$next$$sx_aspcodex_huanhang$LeftTrue = TStr+"..."$$sx_aspcodex_huanhang$End If$$sx_aspcodex_huanhang$End Function$$sx_aspcodex_huanhang$function kbbs(stru)$$sx_aspcodex_huanhang$if not isnull(stru) then$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$stru = replace(stru, ">", "&gt;")$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$stru = replace(stru, "<", "&lt;")$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$stru = Replace(stru, CHR(32), " ")$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$stru = Replace(stru, CHR(9), "&nbsp;")$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$stru = Replace(stru, CHR(34), "&quot;")$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$stru = Replace(stru, CHR(39), "&#39;")$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$stru = Replace(stru, CHR(13), "")$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$stru = Replace(stru, CHR(10), "&nbsp;")$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$stru = Replace(stru, "script", "&#115cript")$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$kbbs = stru$$sx_aspcodex_huanhang$end if$$sx_aspcodex_huanhang$end function$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$$$sx_aspcodex_huanhang$end if$$sx_aspcodex_huanhang$$$sx_aspcodex_endx1$|sql_run:|iffen:0|run_asp_1_1:|ksdaima:<tr><td>|jiesdaima:</td></tr>|rsname:rsbbsnww|htmledxa:1|htmledxb:$end_newDsoft_other_params$
'$end_ext_newDsoft%>



<table style="width: 100%; height: 25px" border="0">
    <tbody>
        <tr>
            <td width="80%"><%
rrzz=kbbs(rsbbsnww("zhuti"))
lastre=kbbs(rsbbsnww("lastre"))
lbs=split(lastre,"|?|")
zui=""&lbs(0)&""
tltl="最后更新："&lbs(1)&""
bno1=rsbbsnww("bnum")
fface=rsbbsnww("face")

if rsbbsnww("type")=1 then fface="jing"
%>·<a title="<%=LeftTrue(tltl,60)%>" target="_self" href="<%=cstr($xxvar$uuur)%>/show.asp?id=<%=rsbbsnww("id")%><%="&"%>bd=<%=rsbbsnww("bd")%><%="&"%>totable=<%=rsbbsnww("totable")%>"><%=LeftTrue(rrzz,$xxvar$lent)%></a><%


if rsbbsnww("riqi")+1 > now() then
response.write" <img align=absmiddle border=0 src="&cstr($xxvar$uuur)&"/pic/new.gif alt='24小时新帖标志'>"
end if

if bno1>10 then
response.write"<img align=absmiddle border=0 src="&cstr($xxvar$uuur)&"/pic/hot.gif>"
end if

%></td>
            <td width="20%"><a href="<%=cstr($xxvar$uuur)%>/userinfo.asp?name=<%=kbbs(rsbbsnww("name"))%>"><%=kbbs(rsbbsnww("name"))%></a></td>
        </tr>
    </tbody>
</table>